home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 40 / PC Gamer IT CD 40 1-2.iso / ELINK / CLARISHP / _SETUP.1 / HOMEPAGE.exe / 1009 / 171 < prev    next >
Text File  |  1997-02-20  |  16KB  |  491 lines
  1. // -----
  2. // SiteWind.txt = VDL171.txt
  3. // Copyright 1996 Claris
  4. // -----
  5.  
  6.  
  7. // Site Window
  8.  
  9.  
  10. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  11. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  12. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  13.  
  14. //This section contains all localizable string constants for this VDL program. Be sure to 
  15. //include the backslash character at the end of each line of a multi-line string, except for the last line.
  16. //You may also flatten multiline constants into a single line, if you prefer
  17.  
  18. #define kLit1 "FTP Settings"
  19. #define kLit2 "Image Policy"
  20. #define kLit3 "Server Name:"
  21. #define kLit4 "User Name:"
  22. #define kLit5 "Remote Directory:"
  23. #define kLit6 "Store Image Files:"
  24. #define kLit7 "With the HTML File"
  25. #define kLit8 "In an Image Directory"
  26. #define kLit9 "Ask Me Each Time"
  27.  
  28. #if Platform_Mac
  29.     #define kLit10 "Image folder:"
  30. #else
  31.     #define kLit10 "Image directory:"
  32. #endif
  33.  
  34. #define kLit11 "Specifies where image files are stored.  Images may be stored "\
  35.                     "with the files that reference them, or they may be stored in a "\
  36.                     "dedicated \"images\" folder.  Use the Consolidate command to "\
  37.                     "move images into the designated location."
  38. #define kLit12 "Specifies the name or address of the ftp server where this site "\
  39.                     "will be uploaded, for example, \"ftp.mycompany.com\"."
  40. #define kLit13    "Specifies the user name (or \"account name\") to use when logging "\
  41.                     "into the FTP server."
  42. #define kLit14 "Specifies the relative path, from the default or root directory of "\
  43.                     "the FTP server, to the root directory for this site.  May be left "\
  44.                     "blank to store the site in the default directory."
  45. #define kLit15    "Specifies the name of the images directory within the site folder, "\
  46.                     "to be used if the \"in an Image Directory\" option is chosen for image "\
  47.                     "file storage.  When the site is consolidated, all referenced images "\
  48.                     "will be moved into this folder."
  49.                 
  50. #define kLit16    "Statistics"
  51. #define kLit17 "Number of Pages:"
  52. #define kLit18 "Number of Images:"
  53. #define kLit19    "Local Directory:"
  54. #define kLit20 "Total Size:"
  55. #define kLit21 "Upload time (14400):"
  56. #define kLit22 "Upload time (28800):"
  57. #define kLit23 "Upload Site"
  58. #define kLit24 "Refresh Now"
  59. #define kLit25    "Consolidate"
  60.  
  61. #define kLit26 "Images will be stored in the same folder as the HTML file that "\
  62.                     "references them.  Note that this will cause duplication of "\
  63.                     "image files referenced from multiple HTML files. "
  64.  
  65. #if Platform_Mac
  66.     #define kLit27 "Images will be stored in a dedicated folder, whose name is "\
  67.                         "specified in the \"Image folder\" field."
  68. #else
  69.     #define kLit27 "Images will be stored in a dedicated folder, whose name is "\
  70.                         "specified in the \"Image directory\" field."
  71. #endif
  72.  
  73. #define kLit28     "When this site is consolidated, you will be prompted to specify the new location "\
  74.                         "(directory) for all image files that must be moved."
  75.  
  76. #define kLit29 "Only upload files that have changed since the last upload."
  77.  
  78. #define kLit30 "If checked, the \"Upload Site\" button will only upload files that have "\
  79.                     "been changed locally since the last upload."
  80.  
  81. #define kLit31 "Before Upload:"
  82. #define kLit32 "Always Consolidate"
  83. #define kLit33 "Never Consolidate"
  84. #define kLit34 "Ask Me before Consolidating"
  85. #define kLit35 "Specifies whether Claris Home Page will consolidate the site before "\
  86.                     "uploading.  Consolidation moves image files into local directories "\
  87.                     "so that links to the image files are not broken when the site is "\
  88.                     "uploaded."
  89.  
  90. #define kLit36 "Warn about missing images during consolidation."
  91.  
  92. #define kLit37 "If checked, Claris Home Page will prompt you to locate image "\
  93.                     "files that can't be found during consolidation of the site."
  94.  
  95. #define kLit38 "Consolidate the site.  This will copy all image files into the "\
  96.                     "an appropriate location within the site folder, according to "\
  97.                     "the settings specified under Image Policy."
  98.  
  99. #define kLit39 "Upload the site to a remote server, according to the settings "\
  100.                     "specified under FTP Settings."
  101.  
  102. #define kLit40 "Controls which category of site options is displayed."
  103.  
  104. #define kLit41 "Service Provider:"
  105. #define kLit42 "ISP/LAN"
  106. #define kLit43 "America Online"
  107. #define kLit44 "Screen Name:"
  108. #define kLit45 "Selects the way you connect to the Internet."
  109. #define kLit46 "Specifies your AOL member name or screen name."
  110. #define kLit47 "*Remember, you must be logged in to America Online before launching "\
  111.                "Claris Home Page Lite to upload your site. "\
  112.                "If you have difficulty uploading files to AOL, "\
  113.                "please refer to the section \"Uploading files to AOL\" in the "\
  114.                "ReadMe file included with this product."
  115.  
  116. //Note: the file name will probably not change, but the name of the "Help" folder
  117. //probably will. Note that the translated name MUST be 8 chars or less.
  118. #define kHelpURL "Help/SiteDoc.htm"
  119. #define kHelpTitle "Help"
  120.                     
  121. //Localized Fonts
  122. #if Platform_Mac
  123. #define kHelpFont         Font = {Geneva, 9, {Italic}}
  124. #define kStaticHelpFont Font = {Geneva, 10, {Plain}}
  125. #else
  126. #define kHelpFont         Font = {"MS Sans Serif", 8, {Plain}}
  127. #define kStaticHelpFont     Font = {"MS Sans Serif", 8, {Plain}}
  128. #endif
  129.  
  130. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  131. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  132. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  133.  
  134.  
  135.  
  136. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  137. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  138. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  139.  
  140. #if Platform_Mac
  141.     //Height of the help view
  142.     #define kHelpViewHeight     50
  143.  
  144.     //Height and width of the main pane (dialog size is derived from this)
  145.     #define kSiteListHeight        165
  146.     #define kSiteListWidth        420
  147.     
  148.     //Width of all the edit text labels.
  149.     #define kStandardLabelWidth 130
  150.     
  151.     //Width of the images policy popup
  152.     #define kImagePopupWidth 325
  153.     
  154.     //Width of the 'consolidate before upload' policy popup
  155.     #define kConsolidatePopupWidth 355
  156.     
  157.     //Width of the label on the Images Policy popup
  158.     #define kImagePopupLabelWidth 150
  159.  
  160.     //Width of the label, and data columns in the stats pane
  161.     #define kStatsLabelWidth     150
  162.     #define kStatsDataWidth     225
  163.  
  164.     // --- Mac only --- 
  165.     //Width of the mode popup (mac only)
  166.     #define kModePopupWidth 125
  167.  
  168. #else
  169.     //Height of the help view
  170.     #define kHelpViewHeight     65
  171.  
  172.     //Height and width of the main pane (dialog size is derived from this)
  173.     #define kSiteListHeight        180
  174.     #define kSiteListWidth        420
  175.     
  176.     //Width of all the edit text labels.
  177.     #define kStandardLabelWidth 130
  178.  
  179.     //Width of the images policy popup
  180.     #define kImagePopupWidth 325
  181.     
  182.     //Width of the 'consolidate before upload' policy popup
  183.     #define kConsolidatePopupWidth 355
  184.  
  185.     //Width of the label on the Images Policy popup
  186.     #define kImagePopupLabelWidth 150
  187.  
  188.     //Width of the label, and data columns in the stats pane
  189.     #define kStatsLabelWidth     150
  190.     #define kStatsDataWidth     225
  191.  
  192.     // --- Win Only ---
  193.     
  194. #endif
  195.  
  196. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  197. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  198. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  199.  
  200. //No further localizable data past this point
  201.  
  202. /************************** END LOCALIZABLE DATA ***************************************************/
  203. /************************** END LOCALIZABLE DATA ***************************************************/
  204. /************************** END LOCALIZABLE DATA ***************************************************/
  205.  
  206. #if Platform_Mac
  207. #define EH(x) ,EnabledHelpString = x
  208. #else
  209. #define EH(x) ,EnabledHelpString = x
  210. #endif
  211.  
  212. #define StdLabel LabelWidth = kStandardLabelWidth, LabelAlignment = Right
  213.  
  214. #if Platform_Mac
  215. #define SiteBack     BackColor = {57015, 57015, 57015}
  216. #else
  217. #define SiteBack     BackColor = Dialog
  218. #endif
  219.  
  220.  
  221. Define(SiteStats)
  222.     VList(SiteBack, Width = UseParent)
  223.         {
  224.         #if Platform_Win
  225.         Spacer(Height = 10, Width = 0);
  226.         #endif
  227.         
  228.         HList()
  229.             {
  230.             StaticText(kLit19, Alignment = Right, Width = kStatsLabelWidth);
  231.             Spacer(Width = 5, Height = 20);
  232.             StaticText(localDirectory, Alignment = Left, Width = kStatsDataWidth);
  233.             }
  234.         
  235.         HList()
  236.             {
  237.             StaticText(kLit17, Alignment = Right, Width = kStatsLabelWidth);
  238.             Spacer(Width = 5, Height = 20);
  239.             StaticText(numberOfPages, Alignment = Left, Width = kStatsDataWidth);
  240.             }
  241.             
  242.         HList()
  243.             {
  244.             StaticText(kLit20, Alignment = Right, Width = kStatsLabelWidth);
  245.             Spacer(Width = 5, Height = 20);
  246.             StaticText(totalSize, Alignment = Left, Width = kStatsDataWidth);
  247.             }
  248.         
  249.         #ifdef DISABLED
  250.         HList()
  251.             {
  252.             StaticText(kLit21, Alignment = Right, Width = kStatsLabelWidth);
  253.             Spacer(Width = 5, Height = 20);
  254.             StaticText(slowUploadTime, Alignment = Left, Width = kStatsDataWidth);
  255.             }
  256.             
  257.         HList()
  258.             {
  259.             StaticText(kLit22, Alignment = Right, Width = kStatsLabelWidth);
  260.             Spacer(Width = 5, Height = 20);
  261.             StaticText(fastUploadTime, Alignment = Left, Width = kStatsDataWidth);
  262.             }
  263.         #endif
  264.         
  265.         Spacer(Height = 75, Width = UseParent);
  266.         PushButton(kLit24, 3313, "None",  kButtonFont); // ccRefreshSiteStats
  267.         } //SiteStats
  268.  
  269.  
  270. Define(FTPSettings)
  271.     Margin(10, 10, 10, 10, SiteBack , Width = UseParent,Height = kSiteListHeight)
  272.         VList( Width = UseParent, Height = UseParent)    
  273.             {
  274.                     IntegerPopup( kLit41, 
  275.                                       kStandardLabelWidth + 4, 
  276.                                       serviceProvider, 
  277.                                       Width = 260 
  278.                                       EH( kLit45))
  279.                         {
  280.                         IntItem(kLit42, 0);
  281.                         IntItem(kLit43, 1);
  282.                         };
  283.                     Spacer(Height = 5, Width = UseParent);
  284.  
  285.             Switch(serviceProvider, SiteBack, Width = UseParent)
  286.                 {
  287.                 case 0:
  288.                 default:
  289.                     VList(Width = UseParent)    
  290.                         {
  291.                         EditText( ftpServer, BackColor = {65535, 65535, 65535},
  292.                                       Label = kLit3, StdLabel, NoSmartQuotes,
  293.                                       NoSmartEdits  EH( kLit12) );
  294.                         Spacer(Height = 5, Width = UseParent);
  295.                         EditText( ftpUser, BackColor = {65535, 65535, 65535},
  296.                                       Label = kLit4, StdLabel, NoSmartQuotes,
  297.                                       NoSmartEdits EH( kLit13) );
  298.                         Spacer(Height = 5, Width = UseParent);
  299.                         EditText( ftpDir, BackColor = {65535, 65535, 65535},
  300.                                       Label = kLit5, StdLabel, NoSmartEdits,
  301.                                       NoSmartQuotes EH(kLit14) );
  302.                         Spacer(Height = 15, Width = UseParent);
  303.                         }
  304.  
  305.                 case 1: // AOL
  306.                     VList(Width = UseParent)    
  307.                         {
  308.                         EditText( aolMemberName, BackColor = {65535, 65535, 65535},
  309.                                       Label = kLit44, StdLabel, 
  310.                                       NoSmartQuotes, NoSmartEdits  EH( kLit46) );
  311.                         Spacer(Height = 5, Width = UseParent);
  312.                         StaticText(kLit47, Width = UseParent, kStaticHelpFont);
  313.                         Spacer(Height = 7, Width = UseParent);
  314.                         }
  315.                 }//switch(serviceProvider)
  316.             
  317.             #if Platform_Win
  318.             Spacer(Height = 5, Width = UseParent);
  319.             #endif
  320.             IntegerPopup( kLit31, 
  321.                                 kStandardLabelWidth + 4, 
  322.                                 consolidatePolicy, 
  323.                                 Width = kConsolidatePopupWidth 
  324.                                 EH( kLit35))
  325.                 {
  326.                 IntItem(kLit32, 0);
  327.                 IntItem(kLit33,  1);
  328.                 IntItem(kLit34,  2);
  329.                 };
  330.         
  331.  
  332.             Spacer(Height = UseParent, Width = UseParent);
  333.             #if Platform_Mac
  334.             WidowCheckBox(kLit29, onlyChangeNewer, Width = UseParent, Height = 16 EH( kLit30));
  335.             #else
  336.             CheckBox(kLit29, onlyChangeNewer, Width = UseParent EH( kLit30));
  337.             #endif
  338.             } //FTP Settings
  339.             
  340.             
  341.  
  342.  
  343. Define (ImagePolicy)
  344.     Margin(10, 10, 10, 0, SiteBack, Width = UseParent, Height = kSiteListHeight)
  345.         VList(Height = UseParent,  Width = UseParent)
  346.             {
  347.             #if Platform_Mac
  348.             WidowCheckBox(kLit36, checkMissing, Width = UseParent, Height = 16 EH( kLit37));
  349.             #else
  350.             CheckBox(kLit36, checkMissing, Width = UseParent  EH(kLit37));
  351.             #endif
  352.             Spacer(Height = 10, Width = 0);
  353.             
  354.             IntegerPopup( kLit6, kImagePopupLabelWidth, imagesPolicy, Width = kImagePopupWidth EH( kLit11))
  355.                 {
  356.                 IntItem(kLit7, 0);
  357.                 IntItem(kLit8,  1);
  358.                 IntItem(kLit9,  2);
  359.                 };
  360.         
  361.             Spacer(Height = 5, Width = 0);
  362.             Switch(imagesPolicy, SiteBack, Width = UseParent)
  363.                 {
  364.                 case 1: 
  365.                     EditText(     imagesFolder, 
  366.                                     BackColor = {65535, 65535, 65535},
  367.                                       Label = kLit10, 
  368.                                     LabelWidth = kImagePopupLabelWidth - 4, 
  369.                                     LabelAlignment = Right, 
  370.                                     NoSmartEdits,
  371.                                       NoSmartQuotes
  372.                                     EH( kLit15) );
  373.                 default: 
  374.                     Spacer(Height = 0, Width = 0);
  375.  
  376.                 }    
  377.                 
  378.             Spacer(Height = UseParent, Width = 0);
  379.             Switch(imagesPolicy, SiteBack, Width = UseParent)
  380.                 {
  381.                 case 0: 
  382.                     StaticText(kLit26, Width = UseParent, kStaticHelpFont);
  383.                 case 1: 
  384.                     StaticText(kLit27, Width = UseParent, kStaticHelpFont);
  385.                 case 2:
  386.                     StaticText(kLit28, Width = UseParent, kStaticHelpFont);
  387.                 }
  388.                 
  389.             } //Image Policy
  390.             
  391.             
  392.         
  393. Define(MainList)
  394.     HList(SiteBack)
  395.         {
  396.         Spacer(Height = kSiteListHeight, Width = 0, ScaleV);
  397.         VList( )
  398.             {
  399.             Spacer(Height = 0, Width = kSiteListWidth, ScaleH);
  400.             Switch(mode)
  401.                 {
  402.                 case 0:
  403.                 default:
  404.                     Margin(0,0,0,0)
  405.                         Call(FTPSettings);
  406.                 case 1:
  407.                     Margin(0,0,0,0)
  408.                         Call(ImagePolicy);
  409.                 
  410.                 case 2:
  411.                     Margin(0,0,0,0)
  412.                         Call(SiteStats);
  413.                 } // Switch(mode)
  414.             
  415.             #if Platform_Win
  416.                 Spacer(Width = UseParent, Height = UseParent);
  417.             #endif
  418.             } //VList
  419.     } //HList
  420.  
  421. Margin(10, 10, 10, 10, SiteBack)
  422.     VList()
  423.         {
  424.         #if Platform_Mac
  425.             Layout(AllowOverlap)
  426.                 {
  427.                 HList(Left = 10, Top = 0)
  428.                     {
  429.                     Spacer(Width = 5, Height = 0);
  430.                     IntegerPopup("", 0, mode, Width = kModePopupWidth, NoUndo EH(kLit40))
  431.                         {
  432.                         IntItem(kLit1, 0);
  433.                         IntItem(kLit2,  1);
  434.                         IntItem(kLit16,  2);                        
  435.                         };
  436.                     Spacer(Width = 5, Height = 0);
  437.                     }
  438.                 
  439.                 Margin(1,1,1,1, BackColor = {0,0,0}, Left =  0, Top = 10)
  440.                     Margin(10,12,5,6, SiteBack)
  441.                         Margin(14,5,4,0)
  442.                             Call(MainList);
  443.                 } //Layout
  444.         #else
  445.             TabControl(mode,NoUndo)
  446.                 {
  447.                 Tab(kLit1,  0);
  448.                 Tab(kLit2,  1);
  449.                 Tab(kLit16, 2);
  450.                 
  451.                 Subview:
  452.                     Call(MainList);
  453.                     
  454.                 }; //Tab Control
  455.             
  456.         #endif //if Platform_Win
  457.         
  458.         
  459.         Spacer(Height = 3, Width = 0);
  460.         #if Platform_Mac
  461.         HelpView(Width = UseParent, Height = kHelpViewHeight, kHelpFont);
  462.         #else
  463.         Margin(2,2,2,2, Single)
  464.             HelpView(Width = UseParent, Height = kHelpViewHeight, kHelpFont);
  465.         Spacer(Height = 10, Width = 0, VScale);
  466.         #endif
  467.         
  468.         HList(Width = UseParent)
  469.             {
  470.             #if Platform_Mac
  471.             PictPushButton(4000, "ContextHelpProc", HelpFile = kHelpURL)
  472.                 {
  473.                 Enabled(Draw, 'cicn',14055 );
  474.                 Disabled(Draw, 'cicn',14057 ); 
  475.                 Tracking(Draw, 'cicn',14056 );
  476.                 };
  477.             #else
  478.             PushButton(kHelpTitle, 4000, "ContextHelpProc", HelpFile = kHelpURL);
  479.             #endif
  480.  
  481.             Spacer(Width = UseParent, Height = 0);
  482.             
  483.             Spacer(Height = 0, Width = 20);
  484.             PushButton(kLit25, 3314, "None", kButtonFont EH(kLit38)); // ccConsolidateImages
  485.             
  486.             Spacer(Height = 0, Width = 20);
  487.             PushButton(kLit23, 3003, "None", kButtonFont EH(kLit39)); // ccRemoteSave
  488.             }
  489.         } // VList (main dialog)
  490.  
  491.